Unit UnDmBeheerder;

interface

uses SysUtils, Classes, InvokeRegistry, Midas, SOAPMidas, SOAPDm, Provider, DB,
  ADODB;

type
  IDmbeheerder = interface(IAppServerSOAP)
    ['{85260BF8-5A71-4BF6-9240-655BDC38F132}']
  end;

  TDmbeheerder = class(TSoapDataModule, IDmbeheerder, IAppServerSOAP, IAppServer)
    DbConnection: TADOConnection;
    QrBeheerder: TADOQuery;
    PrvBeheerder: TDataSetProvider;
  private
  
  public
  
  end;

implementation

{$R *.DFM}

procedure TDmbeheerderCreateInstance(out obj: TObject);
begin
 obj := TDmbeheerder.Create(nil);
end;

initialization
   InvRegistry.RegisterInvokableClass(TDmbeheerder, TDmbeheerderCreateInstance);
   InvRegistry.RegisterInterface(TypeInfo(IDmbeheerder));
end.
